Editorial — 

MAS HARDWARE 

La importancia de la norma 
MSX, se pone una vez más de 
manifiesto gracias a las ^ 

agitado mundo de la 
microinformática nos depara casi 
a diario. De nuevo debemos in- 
sistir en la superioridad tecnoló- 
gica de un estándar 
injustamente vilipendiado por 
unos pocos que desconocen las 
verdaderas posibilidades lúdicas 
e incluso profesionales del 
lenguaje. Este mes junto a las 
secciones que caracterizan a 

incluimos un detallado informe 
de nuestro colaborador Ronald 
Van Ginkel sobre la nueva y 
revolucionaria aportación de la 
poderosa multinacional nipona 
Sony, en el campo de los sistemas 

obligada e imprescindible para 
todos los usuarios de MSX, esta 
gran familia que nos 
caracterizamos por la avidez con 
que absorbemos cualquier 
adelanto relacionado con nuestra 
apreciada norma, y todo lo que 
suponga un paso adelante en el 
desarrollo de nuevas 
prestaciones o mejoras de la 
configuración. Y tratándose de 
un aumento del hardware 
disponible para MSX, la noticia 
tiene mucha más importancia. 
Por otra parte, Joaquín López 
dedica a todos aquellos que 
dudan de las características y 
funcionamiento del MSX dos, un 
exhaustivo repaso a esta 
tecnología en todos sus aspectos. 
Ya conocéis nuestra especial 
"manía": informar, 
puntualmente, con objetividad y 
rigor. Bienvenidos al número 

MANHATTAN TRANSFERIA. 
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EL JUEGO DE LA VIDA 

Excitante simulación 
ordenador. 




Línea directa i 



UN PROGRAMA 
PE HORARIOS 



clase de HORARIOS y gue 

íiora^'s «an flexfbleT. 6 ^ 

' UC JoseV.' Carriol, Darder 
ADRA (Almería) 



Jas por cokbondoresjúem 



DE CINTA A DISCO 



Me gustaría saber cómo 

!n BASICde cZa^dUc™ 
Agustí Obrador 



lo mismo con los progr 



SICde 

•n ensamblador, que sueler. 



Los pasos que debes seguir 

calset^con CLoÁd™ col 
LOAD'Cas. " si es el caso). 



2- Graba el programa en 
el disco con SAVE "nombre. 
Ya tienes en el d,sco una 



gramas en BASIC pueden s. 
cargados de lacinia. 

Si te ocurre esto prueba 
repetir el proceso pero ant, 

lelo manteniendo pulsada , 
tecla CTRL. Si así lampo, 
consigues copiar tu prograrr, 



hn el nrogram 

ulllic.ldo 111 sil 

• marzo del pi 



nea 360 (A=USR(0)). El ci- 
tado error es un error de sin- 
taxis. He modificado dicha 
línea de mil maneras y per- 
siste el error. Les ruego me 
indiquen cuál pudiera ser el 



islhle. 



forma de subsa 



Francisco Yagüe López 
Móstoles (MADRID) 

Ocurre en muchas ocasio- 
nar 'comeado 'enunTííñe" 

rente' Este Tipl leZrror'es 
telen aparecer con baUante 

eTbASK^.pZJIsTeTlí^o 

bes haber cometido algún 

laslfnTas DATA. o"bien"en la 
r que carga esas datas en 



gal Fundían Cali inxxxx. En • 



.:!¡<r< .> A nn 

Synlax^Error al que aludís en 

"Respecto a la forma de sub- 
sanarlo, muy Jaul \ , , 
utilizar el test de listados (y lo 

veces) que te indicará la lí, * 

"yfírílde 



r Elprot 



ZAYD0CKMSX-2 

Nada más ver en su revis- 
i.i el juego Zaydock me inte- 
rese por el v, tras comprobar 
su calidad, lo adquirí. Pero 
el iuego viene en disco de 
doble cara y mi ductora los 

conseguir copiar el progra- 
ma a un disco de una sola 
cara conseguí ver la pantalla 
de presentación; pero no 
conseguí poner en marcha el 
juego. ¿Existe algún modo 
de que dicho juego hmelone 
en mi ductora de simple 



Hec 



¿A qué se debe que ¡ueg 
originales como Zaxxon 

en mi ordenador incluso 
después de haber introduci- 
do unos POKES que me in- 
dicaron en Philips? 
Manuel Martínez Martínez 
Esplugues de Llobregat 
(BARCELONA) 



de los casos, indican 



can un Ule- I 



Tablón de anuncios i 



■t. BARCELONA 



jystick Sanyo pof 3.200 Pías, y 
tro Aristón por l.oon l>[ ,, \1 
iarrido Pareja. Tlf: (968) 22 28 
2Bib-rambla22 1 ."GRANA- 



JO Pías. Gustavo Cela. Tlf: 
7 93. O. Poeta CabaniUas 
10-12 piso 3." izq. 27004 

i. reo cp.2. 

Vendo Spectravfdeo 328, ex- 
pandcr605H, vanos piogramas 
en CP MlVi'ordSiai.CakSi.n. 



, Data, 

nnordelosloro 



BuseoGreen Beret.Jail 



itabili- 



: S Eseúde 8 roGarda 
.1.047-40 Roquetas 



; i ) li.isnlu. 95. Totreperogil. 
-'»»->.) IAI-.N Til m\, 77 W) 
24. CP.2. 

Cambio tres ¡ue^os /axson, 
i lullei \ Npced King originales 
P,., (mnhuih, (original). Ma- 
nuel Romeo. C M. Kos;. Mu- 
és n 27, I I 4 3501) Tono 

a. TARRAGONA. CP.2. ^ 

Lope/. Tlf. 21 08 63 ZARA 
GOZA. CP2. 

Vendo juegos originales a 300 

Esto^ini-er^ 

Paco"" tTÍ ' (9581 óo" 08°47. 
CP.2 

Vendo Sony HB-55P con iim- 
Ptas. Angel Lafuente Esteban. 



Todo p»™3 ™000 Pías, (discuti- 
bles) . Fernando Alabán Albe- 

7 i/""vlik™. 'alicante! 

Tlf.: (965) 80 38 33 y 80 47 70 
CP.2. 

Vendo I HT BIT 55P con ma- 



C Belinil.i n ." 5. Montana los 
VélezlAgüinc-sl Cían, ana,,., 

35259. CP.2. 

Vendo Philips VG-8000 MSX 
di -32Kbi expansión de 16Kb, 
cables, libro de manejo y varios 

KaTjosé Manuefvera Vil- 
ches. C Escritor lose ile los 
Heros n.° 3. 14014 CORDO- 
BA Tlf. (957 1 25 47 24 o 27 4S 
67. CP.2. 

Cambio MSX Código Máquina 
de la editorial DATA Hl •< KI K 

Fección o lo vendo al^'rrciode' 



VG-8020 de 80 Kb, si 
nar. pi.i solo 25 0,111 Pías Da 
vkJ Altafaja Albert. Tlf.: 2 1 1 85 
95. BARCELONA. CP.2. 

Vendo MSX con cariucho dé- 
lo Kb y Spectrum + con imer- 

lfbros, e revistas, etc por^OjOOO 



WORDSTAR, ele Venancio 
Gancedo. Tlf.: (9421 33 98 69. 
SANTANDER. CP.2. 
Vendo 10 programas MSX on 
ginales por sólo 2.400 Ptas. Hv- 
per Sports III. Svccl Acorn. 
etc. Teresa Martín. C/ Villaba- 
ñcz, 26 47 320 Tíldela de Due- 
... X AI .1 ADOLID.CP.2. 
Vendo Sony HB-101P, 20 jue- 
gos comerciales y cassette espe- 
cial para ordenador por 30.000 



Ptas. David. Tlf.: (958) 12 ._ 
15 (horas comida], GRANA- 
DA. CP.2. ^ ^ 

tos" Track&Field I, Fútbol, 
Vh i i-, Monkcv Academi, 
Franciso Javier OreUano 1 
O Mariano Verg -» 
Anco. (0005 MU 
Vendo ordenador 
Superexpander t 

doble- densidad, c 
' con^cabL 

pra. En perfecto esl 
Moreno Aguilar. A 
diz. n." 16 14009 CORDOBA. 
Tlf.: 29 90 63. CP.2. 
Vendólo cambio por ii 

lette íl^EO marca'SOÑY 
cfs55L, y 1 cámara réflex marca 
Zc-nilh con objetivo v flash elec- 
trónico. Juan Manuel ITiees C 
Larragain n° 6, 3." D Mondia 
.:-ü Cl IP1 /,( ( >A Til 1943 
79 80 64, de 19 a 22 h. CP.2. 
Caiiiliii. ¡¡legos originales de 
Konami (Yie Ar ' Kung-Fu 
Knight-Mare. etc), de Erbc 
(Avcnger, Desolator, Basquet) 
por Green Beret, Goonies, Ne- 
mesis, Batman, Deus ex Machi- 
na, v oíros. Carlos Angulo. C/ 
Sant Felip de Roses n.° 45. Ba- 



384 02 14. CP.2. 



Hvper Raflv en cartucho. A 
jandro. Tlf.: (91) 315 72 0( 
' las. 17 h. CP. 1. 



ordenador Philips 8020 
ue 80 Kb v magnelofono "' 

hps Precio a convenir. All 

Ramos. C/ Altozano 3. Villa- 
franca de los Barros. BADA- 
JOZ, Tlf : ¡924, 52 (17 67.CP.1 
Compro ampliación de 64K o 
ile S0K en cartucho para MSX. 
Manuel J. Bailón. C/ Sagrado 
Corazón, n" 13, 3-1. 27003 
LUGO. Tlf.:22 09 01.CP.l. 

gos Knight Lore, Gunfright, 

Alien8,WillyÍI,bounder, f ' ' 
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REGALATE UN LIBRO 
VITAL PARA EL 
USUARIO DE MSX 




El basic paso a paso 



■PorWillyMiragalW 



LOS GRAFICOS 



Un apasionante mundo se abre 



mundo de los gráficos por orde- 



MSX .i] encender el aparato. En esta 
pantalla podemos visualizar cualquier 
tipo de textoyes, por lo general, la uti- 
lizada para realizar los programas. I )is 
ponemos de 24 líneas de 40 caracteres 
cada una, es decir, un total de 960 ca- 

Otro modo de pantalla interesante 
es el modo 1. En este modo también 
de texto, podemos visualizar 24 filas de 

ventaja adicional de poder utilizar spri- 

pueden desplazarse fácilmente por la 
pantalla, muy útiles a la hora de progra- 
mar videojuegos. En este modo, ade- 
más, podemos hacer que el texto de la 
m diferentes colo- 



hahlarc 



El modo 2 es, sin duda, el mas uní, 
zado por los usuarios de MSX. Este es 
el modo gráfico por excelencia. Dispo- 
nemos de una parrilla de 256x 192 pf- 
xels (puntos independientes) sobre la 
que podemos desarrollar toda clase de 
dibujos. 

Por último, el modo 3 es también 
gráfico y cuenta con una parrilla de 
64x48 píxels. Es muy poco utilizado 



Estos dos últimos modos gráficos 
cuentan también con la posibilidad de 
utilizar sprites si así lo deseamos. 



mas versátiles del BASIC. Una de sus 
aplicaciones es la de seleccionar el 
modo de pantalla que queremos visua- 
lizar. Para ello sólo debemos c.cibn I., 
palabra M KM N seüuida del modo 
deseado. 

Probad a teclear directamente en 



con°"Ok™ 0 Para^^^ 



10 SCREEN 3 
20 PSET (100,100) 
30 PSET (104,104) 
40 PSET (108,100) 
50 PSET (104,96) 
60 GOTO 60 
Este p, 



lo siguiente: 
:r lugar visualizamos la panta- 
lla 3 (la de los puntos gordos). Una vez 
en este modo, las líneas 20 a 50 dibujan 
en ella 4 puntos. Finalmente, la línea 60 
hace que el programa quede infinita- 
güimos que el programa no acabe nun- 

ef mensa r jé a "ok^ Vltam ° S ^ apareZCa 
Experimentad eliminando la línea 
60 (debéis teclear 60 y pulsar ENTER). 
Resultado: el programa es tan rápido 

Como hemos visto, podemos dibu- 
jar puntos en la pantalla; pero además 
es fácil modificar el color de los mis- 
mos. Para ello, modificad la línea 20 
para que quede de la forma: 



i Q 



n 



te 




DIBUJO 2 

20 PSET (100,100), 1 

¡Ah!, y volved a introducir la línea 
60. Al hacer RUN comprobaréis que 
uno de los puntos es de color negro. 

La sintaxis completa de la instruc- 
ción PSET es: 
PSET (X,Y,),C 

donde X e Y son las coordenadas hori- 
zontal y vertical del punto respecto a la 

por el color que deseéis que tenga ese 
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mosPSET un poromás ames de'adcn- 
trarnos de lleno en las otras instruccio- 

LINEAS CON PSET 

Gracias a los bucles, de los que ya 
hemos hablado en números anteriores, 
es fácil realizar complicados dibujos 
utilizando únicamente la instrucción 
PSET. Por ejemplo, para realizar una 
línea negra horizontal en el centro de la 
pantalla debemos, manteniendo cons- 


todas las X (desde 0 hasta 255). Para 
entender mejor esto, consultad el dibu- 
jo 2 y entrad el programa listado a con- 

lTsCREEN 2 

20 FORX = 0TO255 

Si) PSET(X,96),1 

40 NEXT X 

50 GOTO 50 

En primer lugar seleccióname 
.Illodograllco2i256x pPpixels. Rea 
h/aiuos un bucle que data 256 vueltas 
dthu|.indo en iada una de ellas un pun- 
to, cuya distancia X irá aumentando v 
cuva Y permanecía tonst.inie 1 mal 
mente, la línea 50 debe comenzar a re- 


A continuación incluimos un par de 
listados mas Tecleadlos y observad sus 
resultados, intentando explicaros por 
que baten lo que hacen. 
10 SCREEN2 
20 FORY = 0TOl91 
SO l'SI TH00,Y),12 
40 NEXT Y 
50 GOTO 50 

10 SCREEN 2 
20 FOR 1 = 0 TO 19] 
SO X = I,255/191 
40 Y = l 

70 GOTO 70 




EJERCICIOS 


Nos contentaremos 

^WIDt'h 40 

30 FOR NOTO 39 

SO LOCATE 1.1,24/40- 

40 PRINT","; 

50 LOCATE 1,24-1,24/40 

60 PRINT","; 

70 NEXT 1 

, H.OI!.uhchH,^ 

ticarse al mismo tiempo la eoo.deiiada 
horizontal y la vertical; pero de dife- 

' Pan solucionar este problema gene- 
ramos un bucle con el maxi.no numero 
de iteraciones que necesitemos. En el 
ejemplo que estamos tratando, como 
en horizontal hemos de recorrci 40 ca 
ráeteles \ en vertical 24. optamos poi 

función dTl" ot e ra. 0nCr 

En nuestro caso, basta con mulupli 
car por un factor de escala conveniente 
(-.0/24). 


1.- Realizad cualquier dibujo-, ñero 
utilizando PSET. No tensáis prisa por 
utilizar las .lemas instrucciones prali- 
cas, que trataremos en el próximo nu- 

2- Llenad toda la pantalla de pun- 
tos de color verde. 

3.- Y siguiendo con el símil de los 
ejercicios del mes pasado, dibujar una 
X que ocupe el máximo tamaño en la 

SOLUCIONES A LOS 
EJERCICIOS DEL MES 
PASADO 

El primero de los problemas pro- 
Realizaremos uno como ejemplo de 


Finalmente, otra solución pudiera 

10 FORY=0TO23 
20 FORX=0TO39 
SO l.ix ATEX.Y 
40 PRINT "A"; 
50 NEXT X 
60 NEXT Y 

En este caso repetimos 24 veces (una 
por cada linea de ia pantalla! el bucle 
de las lineas 20 a 50 Este bucle escribe 
toda una linea de "A", desde la posi- 
ción 0 a la 39 

Los más despiertos lo aquellos que 
se molesten en escribir los programas) 
se darán cuenta de que estos p,..g,a 

nen razón. Estos programas, en todos 

Mamo al londo de la pantalla. Esto se 
debe a que el ordenador imprime 
"Ok" al acabar el programa, y la solu- 


LISTADO 




Por ejemplo, valgan como muestra 

10 ! 'fORX=1TO 24 

20 PRINT "AA...toda la línea.. .AA"; 

3Cn\IEXTX 24 

acabaremos llenando las 24 líneas que 
componen la pantalla. 

Otra posible solución sería: 
10 FORX=lTO 24*40 
20 PRINT "A"; 
30 NEXTX 

En este caso imprimimos tantas "A" 
una detrás de otra (fijaos en el punto y 
coma que acaba la línea 20) como espa- 
cios hay en la pantalla. 


to, al habla, de los gráficos. 

Sin embargo, es imposible llena: 
Lotnpletamente la pantalla, ya que 
siempre que escribamos sobre el ulti- 
mo carácter de la pantalla se produi ira 
un SCROI 1. que nos creara una linea 
en blanco. 

Esperamos, sin embargo, que estos 
ejemplos os ayuden a comprender me- 

FOR.'nEXT de los que tratan estos 
El úldmo ejercicio, con toda segun- 
de uno, v no porque el programa sea 
complicado, sino porque al empezar a 
manejar los bucles son corrientes este- 
tipo de dificultades. 

Al igual que en el caso, anterior hay 


li POR W TO 13 
29 LOCATE 5, Y 
3Í PRINT "t" 

59 PUNI 'V 
69 L0C-7E H,Y 
79 PRINT "1' 
89 LOCOTE 17, Y 
1í PRINT T 
íee LOCSTE 22.Y 
119 PPINT 
129 NEXT Y 
1M POR 1=9 TO 2 
16? LOCATE 6*1,9-1 
179 PRINT ■»■ 
■189 LOCATE 8+i,7+I 


m mi« "i" 

299 LOCATE iM.tl 

229 fíWT '«• 
24e LOCATE 29.1H 
259 PRINT t 
259 LOCATE 2R-I. 7 -I 
270 PMM •>• 

269 lócate ;?*¡.'-i 

2»9 PW "t" 
299 NEUT I 
319 LOCATE 27.4 
229 PRINT T 
339 LOCATE 31, < 
249 PRINT "1" 
359 EMD 





EQUIPOS QUE FORMAN 
UN SISTEMA 
INTERACTIVO: 

Los principales elementos que c 



- Monitor de alta resolución. 

- Magnetoscopio U-matic o Videodis- 
co para discos láser. 

- Interface para U-matic. 

- Ordenador para controlar al siste- 



la bola gráfica o I 



Veamos ahora unas cuantas instruccio- 
nes para un Videodisco: 

- Cali LDPINIT: Inicia el videodisco: 

- Cali ASW(n): Conmuta el canal de 
sonido: n puede valer 0 [ningún ca- 
nal), 1 (canal 1), 2 (canal 2) o 3 (am- 
bos canales). 

- Cali VSW(n): Conmuta el canal de 
vídeo: n puede valer 0 (sólo l.i imá 
gen del ordenador). 1 (ordenador y 
\ ulcoJiscoi o 2 (sólo videodisco). 

- Cali LDPSRCH(n): Busca y expone 

- Ca™LDPSTART(ñi.n2): Localiza y 



- Cali LDPAUSE: Reali 
hasta nueva orden. 

- Cali LDPSTOP: Intet 



Transfer, cuvos núrr 
14521 -U-Boot 
14522 -Vampiro 



14523 -Krvpton 
14524 -Mata marc 
14525 -TNT 
También se enci 



tan Transfer (oficir 



24100-26000: Impresión de la revista: 

sonidos de máquinas. 
Con estos datos ficticios, vamos a 
realizar un breve programa: 
10 m R] 1 NO COLOR 15,4,4 
2H 1 DI-IMT YSWih-ASVÜh 
50 CI.S LOCATE I0,5:PRINT 

"MENU PRINCIPAL" 
40 LOCATE 10,5:PRINT "I - 

Manhatlan Transler" 
50 LOCATE 10,7:PRINT "2- 

Productos" 
60 I.IK ATE t.IO PRINT "PULSE 

LA OPCION ELEGIDA" 
70 As = INP(T$(l):ON VAL(A$) 

GOTO 90,240 
80 C;OTO 30 

40 CI.S I.OCATI. 12,1: l'KINT 
"SUBMENU PRINCIPAL" 






'O LOCATE 10,5:PRINT"1- 

Oficinas" 
0 LOCATE 10,7:PRINT"2- 

Produccion" 
0 LOCATE 10,9:PRINT"3-Menú 

0 LOCATE 5,12:PRINT "PULSE 
LA OPCION ELEGIDA" 

0 A$=INPUT$(1):ONVAL(A$) 
GOTO 160,200,30 

0 GOTO 90 

0 LDPSTAR(21010,23000):COLO 
R,0,0 REM Hay que utilizar el 
color 0 de fondo para que se vea 



0 COLOR 15,4,4:GOTO 90 
0 -LDPSTART(24100, 
26000):COLOR0,0 



210 CLS:-ASW(1) 
220 FORI=lTO2100:NEXT 
230 COLOR 15,4,4: GOTO 90 
240 CLS: LOCATE 12,1: PRINT 

"SUBMENU PRINCIPAL" 
250 LOCATE 10,5:PRINT " 1-U- 



3 LOCATE 1C 



SPRINT "2- 



270 LOCATE 10,9:PRINT "3- 

Krypton" 
280 LOCATE 10,1 1: PRINT "4 -Mata 

290 LOCATE 10,13:PRINT "5- 
TNT" 

300 LOCATE 10,15:PRINT "6- 

MENU PRINCIPAL" 
310 LOCATE 5, 18:PRINT "PULSE 

LA OPCION ELEGIDA" 
320 A$=INPUT$(l):ONVAL(A$) 

GOTO 340, 350, 360, 370, 380, 

30 



350 N=14522:GOTO390 
360 N=14523:GOTO390 
370 N=14524:GOTO390 



390 CLS:-LDPSRCH(N):COLOR 
,0,0 

4u. i IOK [ = 1 TO 1000:NEXTREM 
ESPERA UN TIEMPO PARA 
VER LA FOTOGRAFIA 

410 COLOR 15,4,4:GOTO 240 



e íictici 



poco más los conceptos. De todos n 



SISTEMA VIDEODISCO 



l'.vuou.ial: 639.200 
ORDENADOR ! IB (, •ion,, 
PVM-2010LDP-1500P 
HB-G900P BOLA GRAFICA 
CABLES: HBK-2125 SMK-0031 



[IIU.Monl'lllil G')i»iPPRN-M09 
HBW-G900 P. AUTOR-CAI-prog 
!'Ki;C!() TOTAL: 1.389.700 
USUARIO superposición 
I IX 14C.PI VP-5040(mod)NIU-100S 

|> Al ITOK-C Al-usuario 
Precio total: 875.000 



PROGRAMADOR sin superposición 
KV-1440G VO-5630 NIU-100EP 
HB-F700 PRN-M09 CAI-prog. 

Precio total: 877.700 
USUARIO sin superposición 
KV-1440 VP-5048(mod) Nll l'.HIS 
HB-F&)) P. AUTOR-CAI-usuario 
' 636.000 



SISTEMA U-MATIC (HBU) 

PROGRAMADOR superposición 
KX-14CP1 VO-5630 HBU 

PHBI-G900 PRN-M09 
HBW-G900 PAUTOR-SAS 
Precio total: 1.263.400 enero 87 
USUARIO superposición 
KX-14CP1 VO-5630 HBU 
HB-G900 PAUTOR-SAS 
Precio total: 927.400 enero 87 



Progran 



■Por David del Gallego— 



SIMULADOR 
DE VUELO 



Con este programa podréis des- 
pegar de vuestras butacas ya 
que se trata de un simulador de 
vuelo con el qué podréis sentir 
la experiencia de volar con un 
F-18. 



:N2, ::CDL0K4,4, l:L]NE(t5,*í' - r40.;;a, 
,3, BF: SRAM* C6Bn30 1 6«R4SD 1SL~?D :í ? 15D IT 
jn3fL!5tt7PilMi*CUITO,flR3mi£p 

!l MM'MM!i33,MR13D6ttl5Si!!.<!ü::i>l 
MMUS'iLIIE(12f,H)-a3S l 'il)|ii'i.IIEI 
¡80,601-1225,135), 6.B:L:nEI195,:'3'- :: 
i,98l,6,B:LlNE(195,105)-(218,!2e),c,8: 
LWEIlS,4»t2«,15»)¡í,B 
38 Pft:NT(32,á2),6:PflINH77,92),¿:PAIMT 
I137,í2),4:PAINT(182.42I,4:C0LOR 1 s Al* 
= -R9D3L4D3R3D3L3C3R6D31.')Ui;-:A:« = t::.i 
2R603l9i;i5' : A3««- R3D 13L9U6R3D3R3U 1 1 " 1 í 
(•■R9D3L6D9R6E3L9U13": A3t*-R9D15L3U6L 
3D6L3U15":fló«="R3D3L3U3" 
48 fl?$=-R6F30963L6U15-:fia»='t:.D=_:.L'9-; 
A9»=-R3D12P3U12R3Dl5L9UlS-:0PftW"BHrp. : 

•¡drík , b«29,15xa2«¡":drsn"bih?,1 
!R302pd:ru2RU2R3Di5L3u«d:l:::j:l'j::íl: 

:-;DRAWBH56.15X«l*¡" 
5í DRAM-BM71, 15KA3»; " : LINE(74. 15) - ■ ST. 

1,B:LINE(77,18I-(88,27),!,B¡DRAN 1 B 
N83,15R9D913BH83,15D15P3U66H89,38P3":L 
1N£I8?,24'-(92,30),1:UNE(84,24I-I89,3 
D,l:DRAH*Bn86, I8P3D3L3U3* 
i? DRAH'BniBl, 1S)A4«; ':DRAM'Bt1U0. 15XA 
3*; *:DRAM-BH113, 13XA6*; " : DRAN'BMl 19, :5 
R9D3BH¡19,13D3R6Bnil9,27D3R9U3U - :LINE 
1128, 181-1122, 27', 1:I.:nE<125, 181-1119, 
271,1 

78 0RAH*BH128, 13XA34; BII131, 18XA6*; ' : DR 
AWBt114é,15XA7*;Bni49, 18XA8*; • : DRAM"BM 
155, 1SXA!»¡ •:DRAWBM144, 15XA:$; ■ : OfifiW 
, 15R3D2RD2RU2RU2R3D1L 3 J4::: [:_ . 2 
LU2D4L3U13" 

8B DRAH-BNI91, 1SXA9SÍ-SORAH-BR200, 15D1 
5R3U6BII2M, I5P36N204, 13D4U4R3D15L3' :LI 
NE(20!,l5)-(206,21l,!¡LINE(20J,24l-(20 
" . 1:DRAH-Bn209, 1SXA7*; B»2I 2, 18XA8* 

98 UNE(218,15)-I227,3Í),1,B¡LWE(221, 






18)-(224,27).:,BiBU» , R9D9L6D4L3üi:-¡B 

2»="fc:L:D : F:3:L-'j:i ; :L : L;u: , :B:»= , R9j 

3i.6B«: , j3!.:=.:R:D4L9U¡5-:«AII , WC e ,16« 
£:«;:.«::... ' 


:PA!NTI214,!75),1 

148 FOR 1=1 TO 28: REAB X. V:PAINT(X, Y) , 
1:NEÍT I : DATA 26,19,78,19,88,19,108,22 


188 l!NEi3B,l63>-!47,lB0¡,l,8:lINE!<t, 

16B>-(44.1?7),l,B:DRA«-Bt14\165F9D9l3B 

H4-',¡6SDISR3U&BRS3,18BR3-:LINE!S3,174) 

-I54,IB0I,;;IINE(50,174)-(53,I88),1:DR 

AWBn50,148R3D3L3U3" 

118 DRAWBM65. 165KA7»; EI168, 148XA8»¡ 1 : D 

RAWBM74, 145IA5»¡BN77, 14BXA6I; ':DRAW'B 

nB3,163R3BH89,143R3Bn86,l8tR3':LINE(B3 

,165)-(86,1B8),!:UNE(86,165I-(88,174) 

,1:UNE(88.I72)-(89,I45I,1:LINE(89,1B0 

1-192,165), 1 

120 BRA« 1 B«92,:451IB2»i , :DRAN , BN101,143 
(A7S;Bni04, 168XA8*; *:DRAW-BM1 19, 165XA7 
»;BN122, 16BXAB»; ":DRAWB«128, 165XA1»; • 
:DRAK , BIU37,165IA2»; , :DRAU , BII135,145IB 


2,19,214,21,223,21 

150 DATA 34,169,43,171,52,169,70,171,7 
9,169,100,172,106,172,124,172,134,170, 
142,149,160,175, 169.169,198,178,206, 16 
9,205,175,214,173 

151 PLAV514I1900A6FAGFF6AF6A', -31411900 
EEEEEEDDDDDD- 

160 FOR I = 1 T031 0« : HEXT I : S0UKD7 , iB 1 1 I 1 1 1 

170 ' 

171 ' 

172 ' OPCION DE MANDOS 

180 ' 

181 ' 
1B2 ' 


801*1 DRAH-BH164, 163XA3*! 6K167, 16BXA6I¡ 

130 DRAH-BM173, 165IA2»; ■ : DRAM'Btl 182, 16 
5XA2*: ":DRAW'Bni91,165XAl«; -:DRAH-Bn20 
0, 165XB3»; 1 ¡LINEI209, 1431- (218, 1801 , 1 , 
8:IINE(212,168>-(213,1771,1,6¡PAINT(5, 
51, l:PAINTI206,169),l:PA!NT(205, 1751,1 


190 0PEN"6RP:"AS«1 

200 COLOR 4,4,4:CIS:COIOR 4,4,4:IINEI5 
0,501-1280,140), 1,BF:LINE(45, 451-1193, 
135) ,15,BF:A«=-1.-J0YSTICK.-:B*=*2.-CU 
RSORES. ■:DRAH-Bn75,7S > :C0L0R 6:PRINTI1 
,A*:DRAW-BN75,76*:PRIMT»1,A*:DRAM-BM76 
,75'¡PRlNTIl,A»¡DRA»-Bn76,76 1 ¡PRINTIl, 



210 DRArBH75.o5":PR!NTtl,B«:ÍRA."8".75 

,V:FP::¡ T »I.B»:DRAN"BM74,95":PRINT41, 

B«:DRA» , BH76,9i"iFPlNTIl,BÍ . 

220 C*=INKEYí.:IFCÍ="l"THENQ=I:60T018B6 

238 !FC«.="2"THEN9=8:G0T0 1800 

248 IFCK!TANDCi:>"2"THEN220 

988 BOTO 988 

981 ' 

982 ' 

983 ' DESPEGUE 

984 ' 
'85 ' 

1Í88 CLQSE#1: QFEN-6RP: " AS«1:DH1 Pí 12) : 
COLOR ,4,4:0.5 

1810 SPRITEÍ(4)=STRING»(8,CHR»(241) 
¡028 SPRITE$(5)=STRIN6»(8,CHR»(4Í)) 
1838 SPR1TEI (6) =STP1N6«(8. CHR»I 126) ) 
1048 SPRITES(7)=STRING*18,CHR$Í255)) 
1850 C=15:C!=6:Z=358:L=95:K=8:01=78:02 
= :í-;"=?::-t':V--I: T =::-:íl=8 , :F0RI=lT012 
:M=N*8:PíII=N:NE<TI: J=5 
1051 fil*="flEOTflDfi LA PISTA DE DESPEGUE 
":A2í='0ESPEGUE:VELOCIDAD INADECUADA": 
í:« = "!ín:üBRA' PERFECTA DE DESPEGUE" 
1860 LINE'8, 961-1255, l'll , 1,BF:LINE!8. 
1911-178,961, 12:LINE!8, 961-178,96), 12: 
LINE(185,96l-(255,:91),i::LI.€'i95,'a 1 
-:X5.?6i,:::P«»ITiI«,lM),i::«IliT':4 

0, '.00:,!2:LINEi0,0 - ■ 255, 141 . 1,BF:PSET 
I18,8!,1¡C0LDR 6:PRINTI1, "VELOCIDAD: " 

1061 PSET(145,0),1:COLOR 6:PRINTt!,-AL 
TUPA:* 

1062 ONKEYGQSUB, , , , 1588: KEY (5! ON 

1063 TINE'Í 

ir? =T5FI>!TE5.'I.f'!¡-.t.4¡fJTP1=.:;t 

1, (T,f(2)i,c.«tfj'SP(!:TE'..:,F;r-.,ci, 

5:Pj*8ff!'E8.'' T . : i .::,!: : T;P*rí-, 
'V'5''..C,5:F'JTEFF: T Elí\íV;i<i,C,5: 

(T,P(8>!,C1,6 ' 

1880 pumiTEi;. ;T,«'«<!,c,i¡F'jTSPf:: 

E14,(T,P(10)),C,6:PUTSFFHE15.(T,P!U) 

),c:,'!PUT3FH T E¡i,-T,pí::!',ci,::SWf 

C,C1 

1898 Rn=STICKU!:IFFn.= lTHENZ=Z-t8:V= 

::•:> ^=1NT(125«8/VI¡IFAA;233 then m* 

1 102 SOUND0 , AA : SOUND 1 , 1 : S0UND2 , AA: SOUN 

D:,::5üL"¡D4,0:SOUND5,5:SOUND6,15:SOUND 

7,56:5OUNDB,15:5OUND?,15:SOUND10,15 

1110 FORA=0TOZ:NEXTA:LlNEie,L:-[233,Ll 

,4:L=H-B:F0P¡ = lTDi::f ■ 1 =!=■ ■ : : NE ' - 1 : 

r=iV- ; ! í i--:THENG0SUB138« 

1128 IFP(lli=>191THENSPRITE*(7)=CHRí(8 

1138 IFP(7I=>191THENSPRITE«(6)=CHRI<8) 
1140 IFPI31=>191THENSPRITE«l5)=CHR«tl) 



1158 IFP(t)M95THENSPRITE*¡4)=CHR«(0): 
ZI»=A3«:60T0 165» 

1151 L1NE(85.0!-ÜU,7U,BF:PSET(B0,8 
'■,-.: COLQF- t:PF:lNT«!,V::FC-=;>PNH=K.5:L 
11E-:í:.í--.4;,7).l,Br:PSETt2«,i),l: 
COLOR 6:PR1NTI1,H 

1152 •E= T ;HE:IFTE/50=>48ANDG=8THENZ:s= 
Alt:BOTO1680 

1168 GOTO 1078 

1388 0I=01+l:02=Q2-l:LINEI01-2,LI-(«.l 

'2!,12:LINEI02+2,L>-i236,192¡,l2:LIN£l 

01-1.L)-U,192),12:LINE(02+1,L)-(256,I 

"¡,12:LINE(C1,LI-¡0,192),12:LINE(O2,L 

1-1256, 192), 12:K=8:RETURN 

1508 l- V=1225 AND V=-235 THEN 6=1 

1510 IF V<225 OR V>233 THEN ZZ»=A2$:60 

TO 1488 

1528 RETURN 

1608 lIne(0,;m:55,14i,;,bf : p=et!0.8) 

■ üMlOR c: e: í'.-':,II':POR! = 1TO1080:NE 
r::CLEPP:SCPEEN::CPEN-6FP:"AS»l:G0TO 

P088 

1650 LME<»,7>-!255,I4),1,BF:PSETU,8> 
, 1:C0LC- o:FR!NTI!,:Z):POt:=;TC150í:NE 
IT';S!D¡r.tBtlllUll 
2088 ' 
2881 1 

2802 ' COMBATE 
20?: ' 

sesm 2588 

2820 AI»=CHR«l8!+CHPíil27KHR«(44l+CH 
51 tl .[HF:( • :HÍ«.64l+CHF;«:il!-CrfF« 

2830 A2MCHF» ! 67 1 +CHR* 1 64 ) +CHRÍ 1 64) +CH 
R*(64)»CHRI : t4)-CHR»!64HCHH ¡CUCHR 
«(8) 

2040 A:»=CHF«(8¡+CHFi'255)+CHFM!'CHF 

«(ii*chrji:h:hf.!'i'»chp« :: ; "Chr$(12 

2058 A4«=CHR«(225)*CHR«(129)*CHR»!12' : ! 
+CHR»i!i+CHRl(l)+CHM!l'+CHF«(255)+CHR 

2868 A5«=CHR«iei+CHR«l»)+CHRI(ll+CHR»í 
l)+CHR»(l)+CHRt.(l)+CHR«llltCHR«ll) 
2078 A6«=CHR« ( 1 ) +CHR» ! 1 1 +CHP4 í 1 ) +CHP» ( 

2888 A7*=CHR«i 128) tCHP» 1231 ♦Ch?i: : :' 

-:-'-y.:=: :k +chm ¡t-mwii» 

2i"i ;;t=:ri :" -:-'» ra+CHH'.ra 
♦chr$(2:< *chr! •:hr»!248)«chr«(2i 

6)+CHR$(72) 

2100 A9*=CHfiíl0)*CHR«(8)+CHR»10!+CHR«t 
24)+CHR*(24)+CHR«(24)tCHR»(24)+CHRf.;24 

21Í1 Bi»=CHR«U)+CHR«(»l+CHRI(8)+CHR«.( 
8 ) +CHR» I 01 +CHR» (8 I +CHR$ ( 3 1 +CHR» 18) 
2182 B2«=CHR*( I 1 +CHP* (3¡ *CHRt ( 127) *Ch= 



«(3)tCHR*l8l*CHR*(e'-CHR«(8)»CHR»l8) 
2103 B3«=CHR«(0KHR»ie: W0'-: j! l 
0)+CHR«(0l+CHF¡ :¡S^CHR*;224i*CHFI112 

8) 

2184 B4«=CHR«(!92>*CHR.(224:-:HP«'255! 
.CHStiIiü'.CHMni.iHMiíHCtiMifi.M 
«10) 

2118 SPRI T E«[0!=Al«*S2l-A3M4í 
:i2f i-F¡7ES(l)=A5«+A6»+A7l+A8« 

2130 SPRITEt(2)=A9» 

2131 SPF I T Et 3 =E:t+E2»+B3»+B4« 

2148 PUT SPRITE 2, (23, 183) , 15,2: FJT 3P 
RITE 4,(175,1831,15,2 
2158 *=1B0:Y=87-;1=108:V1=1 7 5:H=?:V=0: 
V1=4:Y2=0:K:=2:F=!9B:S1«= , NO TE QUEDAN 
HISILES-:S2»=-N0 TE QUEDAN LASESS'lS! 
«•-MISION CJflPLIDft, ENHORABUENA" : S4«='fl 
VION HOSTILiPOSIBLE DERR IBO" : Sí*- " AVI O 
N H0S'IL:DERRIBADO\S6»="AVI0N HOSTIL: 
COLISIONADO" 

2151 ZX»=S4«:G35UE 4800:R=RND!-TINEI 

2152 X2=INT(RND(l)tl84)*l 
2168 BTMTICK(J) 

2178 D»; KEV 60SUB ,,,,2340:KEY(5)ON 

2188 LI=STRI6(J) 

2198 IF LX-:>« THEN GCS'JB 2358 

22?? IF STSM THEN Y»Y-4 

2218 IF STZ=2 THEN Y=Y-4:X=X+4 

2220 IF ST*.=3 THEN X=X+4 

2230 IF ST7.=4 THEN Y»Y+4:«»X+4 

2248 IF ST",=5 THEN Y=V+4 

2258 IF SU=6 THEN Y=Y»4:X=X-4 

2240 IF ST7.=7 THEN X=X-4 

22'0 IF 5T7.=B THEN ¥=¥-4: X=X-4 

2271 Y2=¥2+V1:X2=X2-H1 

2272 PUT SPRITE 3,(1(2. ¥2!, i, 3 
22 1 : IF U 8 THEN X=B 

2274 IF «=>184 THEN 11=184 

2273 IF V'<7 THEN Y=' 
22 , 6 IF ¥=■> 175 THEN Y=175 
2280 FUT SPRITE 0,(1, Y), 1,0 

::){■ p-jT sprite 'ii, ¡,i 

2388 IF X2;X1 THEN X1=X1*H ELSE X1=X:- 

2310 IF X2=C8 DR I2»>184 THEN Hl-Hl 
2328 IF Y2=>179 THEN Zn=S6«:G0SUB 488 
8:G0T0 6880 

2325 IF Y2HDY1 THEN Y1=Y1+V ELSE Yl= 

2330 IF X1=;X2 AND Xl+6=<X2+16 AND Yl= 
'■¥2+5 AND Y1='Y2+12 OF; 11+14= K AND * 
1+14=1X2+13 AND Yl+16=>Y2+5 AND Yl+16= 
<Y2+12 THEN 60TO 3888 
2348 SOTO 2168 

2358 IF L2=8 THEN ZX«=S2«:S0SUB 4888:P 
ETURN:ELSE SOUND8,128:SOUND1,1:SOUND2, 



S0UND7, 54: SOUNDG, 14: S0UND9, 8: SOUND10, 8 
: S0ÜND1 1 . 25 1 : SDUND12, lfl: 50UND13. 15 
2351 LINE(28,188)-(X*8,Y+8),15:LINE(17 



'Programa 



8, 138)- !X+S, Y+8) , 15:LINE(2E, 1SB)- í X+B, 
•8),4iLINEtl78,188)-llt8,»«),4!L2«L2 
l:LINE(284,184)-(224,112l,15,8F:PSET! 

288,185),l:COL0R 4:PR1NTI1,L2 

2352 IF (--42 ANO 1= «2+16 AND ¥= Y2 « 
N2 v ="<2*!6 3' <+I4=-*2 AND )*!; = ■ «2+1 
4 AND V»16=;V2 AKD Y+14=<V2+14 THEN 60 
TO 3886 

2353 RETURN 

2348 1FP=24B THEN ZX«=S1«:G0SUB 4688:R 
ETL<RN:ELSE H=4:V=4:P=P+16:PSETIP,128), 
l:DFftW-C15XX*; "¡PflINTiP, 135) , ¡5iRETüRN 
2588 ' 
2518 ' 

2528 COLOR ,,1 

2Í7F -:nE'8, 8)-'255, , 1 ,BF: LINEI288, í 
1-1255,1911, l,Bf 

2578 PSET¡264,96>,l:C0LOfi 4:PP1NT»1,"L 
iSERS":LiNE!284,184l-t224,ll2),15,BF¡P 
SET-Iíe.lííMsCDLÜ* «F*WT8l,l2 
2588 PSET (284, 128:, 1: COLOR 4:PRINT»1," 
KISILES" 

:!«f ¡s='E:FD ; :L-:t:;j.uL:c:jL:Du:-:jL 

DU2RURURU9R" 

2488 PSET (288, 128) , 1 : DRAN'CiXX»; " : PSET 
'213,123;,l:DRAB"C4n«¡':PSET!228,128) 
,l:CRAH-C4X»»;":PSET(238,125,::DFÍH': 
»X4* 1 - : F-SET !2«8, 128? , 1: DRAH'CMX»; * 
241.1 Pa:NT'282.i:! ..-:PSINT 215. 1:5;,= 

¡Pítr'::8,:;s-,«PAiNT;:;8,¡;5:,j ! p»i 

NT(248,135).4 
2428 RETURN 



3884 ' 

3818 CH'CHRI ! 1 ) +CHR4 (4) +CHR4I24) +CHRI 
(8) +CHR» (3) +CHR» (34) +CHR» (73) +CHR» 1731 
♦CHR» ( 148) +CHR»( 144) +CHR4 I 152) +CHR4Í4' 
)+CHR«(57)tCHRI(44)+CHRI(48) 
3828 C2«=CHR»!12B)+CHP»(76I+0HR»<24)+C 
HR«I8)*CHRÍ(48)+CHR«12341+CHR»(22B)+CH 
R»í2«8l+CHR«(216I+CHR4I17)*CHR$I97I+CH 
R»(144i+CHR«(224)+CHR«(12)+CHR$(112 
3838 SPRITE«i5)=Cl»+C2» 
3848 PUTSMÍTE5, te: ,i'.,'.M'ti* 
0UND8, 8: SOUND 1 , 8: S0UND2. 8: S0DND3, 8:S0U 
ND4, 8: SOUND5, 8: S0UND6, 38: S0UND7.7: SOUN 
DB,16:SOUND9,14:S0UND18,14:S0UNDll,l 
0UND12,68:S0UND13,6¡ZI».SS»:6OSUB4666¡ 
IFí«=:2THEn:u--SI«:60-0 S8M:ELSE 6OT0 
3845 

3845 PSET'284,72),l:C0LOR 6:PRINT 
VI0NES":LINE(284,B8)-!244,88),15,BF:P5 
ET(288,B1),1:C0L0R 6:PRINTI1,KA 
3858 F0RI=1TQ58¡NEKT:SPRITE«I5)=CHR«I8 
):f2TSP-lTE3.'23;,2^¡J,5:PUTSPRITEl, 
(168,175!, l,I:H=6:V=8:Kl»168:Y! = n5:<2 
2151 



4888 SOlMD8,8:SOMl,8:S0M2,8:S0UND3 
,8: S0UND4, 8: S0UND5, 8: S0UND4,38: S0UND7, 
7:S0UND8, 16:S0ÜND9, 16: SOUND18, 14: SOUND 
11,255:SOUND12,225:SOUND13,1:FORI=1T02 
888: NEKTI: SOPEEN 2: SOTO 9888 
7888 ' 
7881 ' 



8888 CLOSEIhSCREEN 8:KEY 0FF:BI1 
¡COLOR ,1,1 
8818 L0CATE5,12:PRINT"0UIERES VOLVER A 
JUGAR, (SI/NO)' 
B838 L0CATE8,15:INPUT H$:IF M«="SI" TU 
EN SCREEN2:CLEAR:60TO 198 

F NM'NO" THEN LOCATE 1 5, 22: PRINT 
•:F0RI=1T01888:NE«T:SCREEN 8:WID 
TH 39: KEYON: COLOR 15,4,4¡ÉND 
8858 IF RIO-SI" OR R«O"N0" THEN 8818 



3993 VISUALIZA DATOS 



3995 ' 

4888 LINE<8,8)-I255,7>,1,6F:PSE 
1: COLOR 4:PRINTtl,2)(l:RETURN 
5888 LINE(8,8)-(255,7),l,BF:P5E 
1¡COLOR 4:PRINTIl,n»:F0RI = lT0288:NEn 
:NI=I1!+1:SCREEN 2:HA=8:G0TO 2888 

5991 ' 

5992 ' 

5993 ; EXPLOSION DEL 5IWULAD0R 



8991 ' 



8994 ' 



9888 S0UND7 , iB 1 1 11 1 1 1 1 : CLQSEt 1 ¡ SCREEN 
l: KEVOFF: HIDTH40: COLOR ,1,1 
9828 PRINT'HAS DERRIBADO ■;KA+HIf32¡'A 
VIONES" 

PRINT'CDN "¡Mli'IIISIONES CUMPLIDA 
9848 FORA*1T02888:NEXTA:SCREEN 2:60 



Test de listados ■ 



- 58 121 -18* 238 - 42 II 

! " 58 138 -118 248 -184 1842 -143 1 

S " 58 148 -247 988 -118 1863 -283 I 

S - 5B 151 - 31 982 - 58 1888 -217 | 

! - 84 148 - 33 983 - 58 1898 -233 l 

1 - 45 178 - 58 984 - 58 1188 -189 | 

) -178 171 - 58 985 - 5B lili ■ H ; 

I "287 172 - 5B 1888 -289 1112 -147 ¡ 

> "172 1B8 - 58 1818 -198 1118 -134 ; 

• -134 181 - 58 1828 -235 1121 - 5 ; 

I - IB 182 - 58 1838 - 44 1138 - 2 ; 

I -11B 198 -224 1848 -174 1148 -253 ; 

I -239 218 -1B7 1858 - 75 1158 -241 

I - 18 218 - 84 1851 -248 1151 -146 

I -114 228 -166 1848 -183 1152 -153 



i "213 2158 - 17 2272 -282 

1 - 91 2858 -188 2151 - 4 2273 - 5 2348 

I -245 2848 -222 2152 -245 2274 -111 2588 

I -142 2888 - 74 2171 -239 2274 - 95 2528 

! -212 2198 -243 2188 -157 2280 - 96 2538 

! -232 2HI - 74 2198 -151 2298 -194 2578 

! - 56 2181 -216 2218 -218 2318 -1B2 2568 ■ 

1 - 56 2182 - 98 2218 -166 2311 -215 2598 

2 - 58 2163 -177 2228 -217 2328 -221 2688 ■ 
! - 58 2184 - 79 2231 -187 2325 -227 2418 ■ 

2616 - 23 2126 -124 2251 -198 2346 - 15 3666 • 

2615 - 66 2138 -226 2246 -222 2356 -195 3661 ■ 

2626 -197 2131 -114 2276 -193 "51 ""4 3662 ■ 

2856 -261 2148 - 44 2271 - 37 "52 - 2 3663 ■ 



•142 3664 

- 34 3618 

- 58 3828 



115 3991 
281 3992 
183 3993 



- 5B 5993 - 58 8992 
-263 5994 - 58 B993 - 58 

- 55 5995 - 58 6994 - 

- 99 MI -113 9818 -1 
-239 7186 - 58 9828 - 
-169 7681 - 58 9638 - 
-138 7662 - 58 9648 -2 

- 58 7663 - 58 

- 58 7664 - 56 
58 6666 -116 
56 8616 -223 
58 8836 -117 



58 5868 

58 5991 ■ 
58 5992 



i -137 a 



12 8658 - 48 

38 8996 - 58 TOTAL: 

58 8991 - 58 21376 



Programa^ 



■ Por Francisco José Salazar^ 



¿ENTIENDE USTED 
DE FUTBOL? 



El título de este programa lo 
dice todo. Si te crees un entendi- 
do en fútbol atrévete con este 
programa, y si no lo ei 
rás el p 



PLAV"05C0EDCDE V04CEFFADE", "D3EEFF 
C" 

P=0:ER=0 

fl»=-E3H3ElF3EJFlG3F3GlH363H¡- 
100 PSET(35,5),2:C0L0R 15: PRINTtl , "ENT 
[ENDE USTED DE FUTBOL" :PSET (36, 5) , 2: PR 
INTI1, 'ENTIENDE USTED DE FUTBOL" 
10 PSETU0, 1761 ,2:PRINTtl,"errores: ■ 
!0 LINEÍ50, 170>- C210, 1,B 
30 PSET!2B,174t,l:DRAH"R12D2L10" 
148 CIRCLE (2S, 180) ,i, 1:CIRCLE (233, lBt> 



1811,1: 



150 PfllNT (233, 188) , 1 : PftINT (25, 
INT (29, 175), 1 

¿0 B»="8ue deiarcacion ocupa 
¡uqador del R.Madrid CAHACH0" 
:D»="2-DEF 



JB 2680 

>INKEY»:IF FR«=" THEN 190 
FR»="2" THEN BEEP¡P=P*1:LINE(0, 
¡01-1255,160), 2.BF ELSE GOSUB 2770:SOT 



10 FR$=INKEYI:IF FR»="" THEN 2*0 
)0 IF FR»="3" THEN BEEP: P=P+ 1 : LINE ' 0 , 
11-1255, 1611, 2,BF ELSE GOSUB 2770:GOT 
240 

¡I B*="Que jugador aunque asistió, 

no jugo MEXICO 84?" 
70 C«="l-SETIEN":D«="2-SES0R":E$=-3-B 
UTRAGUESO" 
280 GOSUB 2680 

m FR*=INKE¥*:IF FR$=" THEN 290 

IF FR«="1" THEN BEEP:P=P*1:LINE(0, 
!0)-(255,160l,2,BF ELSE GOSUB 2770:GOT 



0 2H 




310 Bí="0ue nedidas puede 
catpo de fútbol en LARE 
320 C«="l-90 a 120 i":0«= 
■¡£••'3-201 a 455 i" 
330 60SUB 26B0 
340 FRfMNKEY): IF FRi=" 
350 IF FR«='f THE'I BEEP: 
201-1255,160), 2,BF ELSE GOSUE 



20)-!255,160). :,BF ELSE GOSUE 
0 390 

410 B*="Si tras produc 
el arbitro levanta 1 
falta es?" 

420 C»="1-DIRECTA" : D«="2-FUEFTE" : E«= 

-INDIRECTA" 

430 GOSUB 26B0 

440 FR»=INKEY$:!F FRí=" THEN 448 
450 IF FRI="3" THEN BEIr¡P=rtl;lINEI 
201-1255, 160),2,BF ELSE 60SUB 2? , 0¡G 



490 FR1=INKEY$: IF Ffi»="" THEN 491 
500 IF FR*="2" THEN BEEP: P=P+ t : LI 
20)-!255, 160), 2, BF ELSE GOSUB 2770:6OT 

510 Bt="Co«o se i 1 ama el caepo de 

LA REAL SOCIEDAD?" 
520 C»=-1-LA ALB0NDISA" : D«=-:-ÍL3CHh": 
E«="3-AT0CHA" 
530 GOSUB 2680 

540 FR«=INKEY»:IF FR*=" " THEN 540 
550 IF FFi='3" THEN B£EP:P=P»1:LINE'0, 
201-1255,160), 2, BF ELSE GOSUB 2770:6OT 
0 540 

560 B*="De que nacionalidad es el 

jugador llaiado ARNESEN?" 
570 C»="I-DINANARCA":D)="2-URSS":E«="3 
-BELGICA" 
580 GOSUB 2680 

590 FR*=INKEY*:IF FR«=" THEN 590 
600 IF FR»="1' THEN BEEP: P=Pt 1 : LINEtí, 
201-1255, 161), 2, BF ELSE GOSUB 2770:601 
0 59( 



19 



^ Programa 




611 B»="Cual es la ultua sigla de 
FlFft?" 

,21 C«="l-AnATEUF.":D»="2-AFICI3NAD0":E 
l="3-ASCCIACI0N" 
430 G0SU8 2688 

j=imeyí;if fr$="" then 640 
652 if fr»="*" then beep:f=f*;:l¡íie'í, 
:í -':e:,!M),:,bf else gosub 27?»: mt 

0 64» 

B«="De que color es el segundo 
equipaje del ATHLETIC?" 
C*="I-VERDE':0*="2-fiIUL":E*="3-AMft 
RILLO" 

43» gosub im 

a?» FR«=INKEY$:IF FR«=" T HEt, t'i 
708 1F FP*="2" T H£N BEEP:P=F*¡:l¡!.E:í. 
»'-<2i5,¡MI,2,«f ELSE 60SUB 277»t60T 
0 491 

71» S»="Guien ful el sustituto s 
selección espalóla de ARCONADA'" 
73 C»="MF!BAf;Ct.= -:-Bi;íO":E«="3-:'2 
BIZARRETA" 
73» 603UB 2488 
74» FR«=I»:EY$:IF FR«=" THEN 74» 
7J» 1F m--"V TMIÜ EEEF:F=F.1:LINE;0. 

2f-':::,;6»i,:,BF else gosüb 277»:60T 



780 60SÜB 268» 

798 FF:$=INKEY$: Y- FR»="" THEN ?♦» 
8M IF FP«="2- THEN BEEP: P=P* 1 : -INE ■ 
281- 255.:i8\2.BF ELSE SSSL'E Sr^úü' 
0 79» 

el PUNTO DE PENALTI?" 
820 Wl-11 i":D$="2-9 •*:£»-■!•! i" 
33» SOSUB 268» 

84» FRS=1NC:EY«:IF FR«=" THEN 34» 
858 IF FR*=V THEN BEEP:P=F»1:LINE(8, 
28M255,I6B),2,BF ELSE GOSUB 2778:G0T 
0 84» 

848 B«="Oue «edidas puede tener un 

caipo en ANCHO?" 
878 C«="l-45 a 95 »":DS="2-68 a 9» ■": 
E$="3-45 a 9» i* 
B88 GOSUB 248» 

8?» FR»=INKEY»:IF FR»=- THEN 89» 
98» IF FR»="3" THEN BEEP:P=P*I:LINE!8, 
28)-(255,14«l,2,BF ELSE SOSUB 27'»:60T 



0 898 
918 BS-'Si 



i jugador de saque de 



948 FR$=INKEY$: "%-■ " --Í!, -¡í 
958 IF FR$="3" THEN BEEP: P=P+1 : L-INE (#, 

2»)-i255,160>,2,6- ElEE SCSS'E ZSijZT 
0 94» 

"i :Wi'¡:t. :-"A.:s":Et=':- 

R.F.A." 

938 GOSUB 2638 

998 FR»=INKEí«¡IF FR»=" THEN 99» 
1088 IF FR»="3" THEN BEEP:P=P*1:L!NE(0 
,20)-<255,;:í:,2,EF ELEE 5G=U= ;~S:í: 



COPA DE EUROPA DE NACIONES?" 
1028 CÍ="1-URSS":D«="2-R.F.A.":E*="3-F 

RANCIA" 

1038 GOSUB 24B8 

1840 FR»=INKEY«:IF FF;S=" T HEN 1040 
1050 IF FP«="1" THEN BEEP:P=P*1:LINE(0 
,20)-!255,1601,2,BF ELSE GOSUB 2778:60 
TC ¡040 

1040 BS="0uien ha ganado dos veces 
la COPA DE EUROPA DE NACIONES?" 
1078 C«="I-URSS":D$="2-R.F.A.":E«="3-I 
NGLATERRA" 



5 2:88 



1090 FR»=INKEY«:IF FR«="" THEN 1090 
1180 IF FR«="2" THEN BEEP:P=P*1:LINE(0 
,201-1255, 1601, 2, BF ELSE SOSUB 2778:60 
TO 1098 

1110 B«="Cuantos tacos suelen tener 



1128 C< 



'2-ME7.":E«="3-SEl 



1138 GOSUB 2680 
1140 FR«=INKEY«:IF FR$="" THEN 1148 
1158 IF FR»="3" THEN BEEP¡P=P*I:LINE(0 
,201-1255,140!, 2, BF ELSE GOSUB 2770:60 
TO 114» 

1140 B«="De que nacionalidad es el 

jugador BONIEK?" 
1170 C»="l-BELGICA":D«="2-POL0NIA":ES= 
-3-DINflflARCfl" 
1180 GOSUB 2630 
1190 FRS=INKEY»:IF FR«= 
1208 IF FR»='2- THEN BEEF:P=Ptl:LINE(8 
,281-1255,1601, 2,BF ELSE GOSUB 2778:60 
TO 1198 

1218 BI="Quien gano 
1220 CI="!-R.F.A.":D«="2-ITALIA":E»="3 
-BRASIL" 



INKEYS: IF F*»=" THEN 1¡ 
1250 IF FR«="2" THEN BEEP:P=P*1:LINE(0 
,28i-(255,160),2,BF ELSE SOSUB 2778¡G0 
TO 124» 

1240 B*="0ue entrenador español, 
después de estar en el ATHLETIC paso 
al ESPAñOL por probleias con uno 
de sus jugadores?" 

127» C$= " 1 -ARA60NES" : D«="2-CLE«ENTE" : E 

«="3-IRIBAR" 

1288 GOSUB 248» 

1290 FR*=INKEY$:IF FM=" THEN 129» 
1381 IF FR»="2" THEN BEEP:P=P*1;LINE(« 
,2Í)-(255,14»),2,BF ELSE SOSUB 2770:60 
TO 129» 

1311 B*="A que selección goleo ESPASA 
12-1?' 



20 



132Í C*= " 1-BRAS IL ■ : D*= " 2-flRSENT I Nfi " ; E* 

="3-HALTA" 

1331 60SUB 268a 

1340 FRS=.INKEY«:IF FR»=" THEN 1348 
1350 IF FRi="3" THEN BEEP: P=P-1 : L INE (0 
,2I)-(255,14I),2,BF ELSE BDSUB 2778:60 



1388 GOSUB 2488 

1398 FR*=INKE¥*:IF FR«=" THEN 1398 
1488 IF FR«="3" THEN 8EEP:P=P*1:L1NE<0 
l,2,BF ELSE GOSUB 2778:60 
TO 1398 

1418 B«='Coto se llana el cupo del 
SEVILLA?" 

1428 C$=*l-SflNCHEZ P IZ JUAN" : D*="2-BENI 
TO VILLAMARIN" : E*="3-N0U CAHP" 
1438 60 

1448 



■ THEN 1448 
1458 IF FRI'T THEN BEEP:P=P+I:LINE(Í 
1-1255,168), 2,BF ELSE EOSUB 2778:60 
TO 1448 

t="0uien gano el MUNDIAL 74?' 
1478 C*="l-BRASIL-:D*="2-ESPflfiA":E«='3 

1488 GOSUB 2688 

1498 FR*=INKEY*:IF FR«=" THEN 1498 
1588 IF FR«="3" THEN BEEP: P=P+ 1 : LINE (8 

281-1255, 168), 2,BF ELSE GOSUB 2778:60 

O 1498 

1518 B«='Oue deearcacion ocupa el 

jugador del ATHLETIC,' DE 
.A FUENTE" 

1528 «=-¡-DEFENSA-:Dí=';-NED10-:E«=': 

-DELANTERO" 

1538 60SUB 26B0 

"II Ffi$=INKEY$:IF FR«=" THEN 1548 
1558 IF FR*=-1" THEN BEEP:P=Ptl:LINEi8 
'-(255,168), 2,BF ELSE GOSUB 2778:60 
TO 1548 

¡e creo li FIFA?" 
1578 C$="l-1925":D«="2-1492":E»='3-!98 

1588 GOSUB 2688 

1590 FR$=INKEYI:IF FR*=" THEN 1598 
1688 IF FRt»"3" THEN BEEP:P=P*1:LINE!0 
,201-1255,160), 2,BF ELSE GOSUB 2778:60 
TO 1598 

1618 B«="Ouien gano el MUNDIAL 66' 
1N BRETASA":D»= - 2-ITf 
:E«'"3-I1.F.A." • 
1638 GOSUB 26B8 

1648 FR$=INKEY»:IF FM»" THEN 164 
1658 IF FR«=-1- THEN BEEP:P=P*I:LINE(I 
,28I-(255,168),2,BF ELSE GOSUB 2778:60 



TO 1648 

1668 B«='Cuantas veces ha ganado 

ESPASA la copa del wndo?" 
1678 C»="1-UNA":D»="2-CUATR0":E«='3-CE 
RO" 

1688 GOSUB 2688 

1698 FR$=INKEY*:IF FRI=" THEN 1698 
1788 IF FR«="3" THEN BEEP: F=F+ 1 : LINE (0 
,281-1255, 168), 2, BF ELSE GOSUB 27 
TO 1691 

1718 B«="En que país se celebro e 

CAMPEONATO DEL MUNDO del 5B?" 
1728 C«= , l-R.F.A.-:D*=-2-SUECIA-:Eí='3 
-MEXICO" 
1738 GOSUB 2688 

1748 FR$=INKEY$:IF FR$=" THEN 1748 
1758 IF FR«="2" THEN BEEP:P=F*1:LIN¡ 
,281-1255, 160), 2, BF ELSE GOSUB 2'78: 
TO 1743 

1768 B«="Buien gane el MUNDIAL 86?" 
1770 C»= 1 1-DINÍHARCA-:D«= , 2-ESPA5A-: 



1780 EOSUB 2680 
1790 FR»=INKEY»:IF FR«=" n 
1BÍ0 IF FP$="3- THEN BEEP:P= 
,20)-C55,!60),2,BF ELSE EOS 
TO 1790 

1810 B«="Oue demarcación ocu 



1830 EOSUB 2688 

1840 FR$=INKEY$: IF FR«=" THEN 1840 
1B50 IF FRI'T THEN BEEP:F=P*l:LINE¡í 
,2?)- : 255, 1 sí ,2,BF ELSE GOSUB 2" 



i":M="2 7,32 •' 



1878 «="1-6,98 
-6,54 l" 
1880 GOSUB 26B0 

1890 FM«INKEY»:IF FRs="- THEN 189» 
1900 IF FR»="2" THEN BEEP:F=F>1:LINE(0 
,281-1255, 168), 2, BF ELSE GOSUB 2778:60 
TO 1898 



sí 



REAL MADRID?" 
1928 C«="1-BENIT0 vlLLAMARIN":D«="2-8E 
RNABEU-:E«="3-LA ROHAREDA" 
1938 GOSUB 2680 

1940 FR$=INKEY»:IF FR*=" THEN 194Í 
1958 IF FR$=-2" THEN BEEP:P=P»1:LINE(0 
,28)-(255,160l,2,BF ELSE GOSUB 2778:60 

1968 B»="8uien gano el MUNDIAL 82'- 

1970 M="1-BRASIL":B»="2-FRANCIA":E»=" 

3-ITALIA" 

1980 GOSUB 2680 

1998 FR*=INKEY«:IF FRÍ=" THEN 1990 



TI 



Te encuentras en un oscuro 
castillo abandonado, inten- 
tando encontrar una llave 
de oro para romper el he- 
chizo que te impide salir. 
Para lograrlo tienes que ha- 
cer estallar los barriles de 
TNT y esquivar los mons- 
truos y la corriente de lava. 
Un apasionante juego de 




Lamas rápida 
y completa batalla 
espa 



Nombre y Apellidos: - 



|^ ^g Programa i*ggm< 



:«f : : -<=■:' ' u i'< KiW'Ui-.Híit 

,20)-!255.160!,2,BF ELSE GOSUB 2?7«:G0 
10 199Í 

2111 (••'Cuándo se creo la COPA DEL 
MUNDO?* 

2020 C*=-l-193»-:D*=-2-193B":E*=-3-192 
4" 

2030 GOSliS 2=80 

:^ -c;i=:n>:eí!::c cfs=" -he-i 2040 

IKÍ IF FfM':- THE» BEEP:f=F*l:L:'IE.j 
,a>-.3!,!t»),:,8f ELSE GOSUB 27^0:60 

to 2040 

2068 B«="0uien gano el HUNDI AL 34'' 
2070 C»= , :-:7SLIA":D»='2-R.F.A.":E«="3 
-BRASIL" 

20B0 gosue :t¡í 

2090 FRf=lNKEY«¡ IF FR«=" THEN 2090 
2100 IF FR$="1 " r HEN 9EEP:P=F-*!:L.:kE-0 

,»'-2::,ü»>,:,(f else gosub :77i¡B8 
to 2?«e 

2110 8»="De que nacionalidad es el 



2:20 n 



:-:- c -e:. 



2:40 



PARAGUAY' 
2130 GOSUB 2688 

2140 FPMINr;EY»:IF FR«=" THEh 
2150 IF FR«="2" THEN BEEP:P=P< 
,20^-1255,1601, 2, BF ELSE GOSUB 2771 
TO 2140 

2160 B$="0uien nano el MUNDIAL 50'' 
2170 C*="l-BfiASIL-:D*=-2-R.F.fl. -:E1 



21B0 GOSUB 2680 

2190 FR«=INKEY*:IF FR$=" THEN 2190 
2200 IF FM«"J" THEN BEEP: ?='■•: -.L'Míí 
,201-1255,1401, 2, BF ELSE GOSUB 2770:80 



2238 GOSUB 2680 

2240 FR«=INKEY«:rF FR»=" THEN 2240 
2251 IF FR$=-2" THEN BEEP:P=PH:LINE(0 
,20)-(2¡5,160),2,BF ELSE GOSUB 2770:60 



2260 GOSUB 24B0 

2298 FR*=INKE¥$:1F FR»=" THEN 22°0 
2300 IF FRi=T THEN BEEP: P=F+ 1 : L 1NE ( 0 
, 201-1255,160), 2,BF ELSE GOSUB 2771:60 
TO 2290 



jugador del BARCELONA, 
RftRDQ?" 

2270 C*=-l-f1EEI0":D*="2-DEFENSA":E*="3 

-DELANTERO" 

2280 GOSUB 2680 

2398 FR»=INKEY«:IF FR««"" THEN 2390 
2408 IF FR«="2" THEN 8EEP:P=P»1:lINE 1 
,:i-!:5E,lifs2,(F EL SE 60SUB 2770:GD 



2440 FR»=IfltEY«:!F FR«=" THEN 2 
2450 IF FRt**l" THEN BEEP:P=PH:I 
,20!-'2ü, ::«',:, BF ELSE GOSUB 27"0:GD 



2510 B«="Oue «edida tiene uno de los 

pales de la portería?" 
2520 CS=":-2,44 «":D»=-2-2,38 •":£»="! 
-2,16 •" 
2530 GOSUB 2680 

2540 FR«=INKEY«:IF FM«" THEN 254Í 
2550 IF FR*=" 1" THEN BEEP:P=P*1:LINE(8 
,201-1255, 160), 2,BF ELSE GOSUB 2770:GO 
TO 2540 

2560 Bfhiüi gano el MUNDIAL 58?" 

2570 C*="l-ITALIA':í«=-2-F.F.A.-:Et="3 

-BRASIL" 

25B0 GOSUB 2680 

2590 FR*=INKEY»:IF FR*=" THEN 2590 
2688 IF FR»="3" THEN BEEP:P=PH:LINEI8 
, 201-1255,160), 2,BF ELSE GOSUB 2770:50 
TO 2590 

2610 B«="Radio del circulo del medio 

del caipo?" 
2620 «="1-8,45 ■■:Di="2-8,96 i":E«="3 



9,15 ■■ 




¡630 EOS'JE 26B0 

'.Mi FRWKKEYI:!? FRI«" THEN 2641 
2650 IF FR$»'3- THEN 6EEPiP=P*l:ltHEU 
2K,16I),2,BF ELSE 90SUB 2770iM 
TO 2640 

2660 FOP 1--ZI '0 160 STEP 10¡FSET(IM, 



2670 GOTO 2800 



,2:COlor :!:ffinth,-b r a v 



:é6í fs" :í,4S!.::¡:clof ;¡pfi 

-,?e¡,2:C0:0F J5:« 

" -¡FMNTil,; 



•H PSETI135,1BJ),2:KILÜ 



R liDRSN A. 

274« ¡f ef=: -he.1 f se* ¡,a,:s:,,::c:,c 

R líDRAN Al 



:? ep=: thek pset(185,i83i,2:colq 

S ütFAK Al 
27o0 RETJRN 

Z77Í ER=ERM;PLAVBC":6DSIIB 2731 
278Í IF Efi=3 THEN FOR 1=1 TO :6l! :N 
I:6DT0 2860 
:m RETURN 

2800 CLS:C0L0R 1,7;SCREEN 0:KEY OFF-.LO 
b,4:PRINT-HAS ACERTADO'¡P;'l 

2810 IF P>45 THEN LOCATE 10,8:FFi:¡T'3O 
^RESALIENTE* 

2820 IF P>39 AND P<46 THEN LOCATE II 
:PR1NT*N0TÍBLE* 

2830 IF P>29 AND PÍ40 THEN LOCATE 13,3 
iFF.lNT'BIEN" 
2840 If P>24 AND P<30 THEN LOCATE ¡0,8 
:PRINT'SUFICIENTE" 
I 2850 IF PM0 AND P'25 THEN LOCATE U.l 

I :fr;nt-insuficiente" 

2860 IF P.'U THEN LOCATE 10 , 8: FF. I NT" 
Y DEFICIENTE* 

2870 LOCATE 10,6: PPiHT-TU CALIFICACION 
2B80 LOCATE 5,1?:PPINT-PARA EMPEZAR PU 



Test de listados* 



280 - 2? 
290 - B6 
300 - 16 
310 -155 
320 -240 
330 - 29 
340 -136 
350 - 66 
360 -169 
370 -199 
380 - 29 
390 -186 



1630 - 29 1900 - 8/ 2170 -180 1440 -1 
1640 -161 1910 - 48 2180 - 29 2450 -1 



2190 -201 
1930 - 29 2200 -133 
1940 -206 2210 -240 



2470 -224 2740 - 87 
24B0 - 29 2750 -1 



2490 



l -142 



650 -113 
660 - 96 
670 -101 



700 -162 
710 -207 
720 -173 
730 - 29 
740 - 25 
750 -213 
760 -189 
770 -213 



. -108 1170 - 

0 -124 11B0 - 

0 -230 1190 -: 

. - 29 1200 -1 

0 -226 1210 -I 

1 -15B 1220 - 
! -195 1230 - 
, . . 1240 - 

I - 29 1250 -\ 



- 29 1300 -153 

- 71 1310 -255 



1440 -216 
1450 -146 
1460 -197 
1470 -145 



1700 -143 1970 -199 
1710 -233 ¡?80 - 29 
1720 - 68 1990 - 0 : 



1500 -198 
1510 -218 
1520 -100 



1750 -192 
1760 -200 
1770 -138 



1800 -243 2070 - 54 2340 - 96 

2080 - 29 2350 - 27 

2090 -101 2360 - 58 

2100 - 31 2370 -100 

2110 - 60 2380 - 29 

1580 - 29 1B50 - 36 2120 -171 2390 -146 



1550 -247 
1560 -150 
1570 -209 



2770 -109 

2510 - 0 2780 -104 

2520 -253 2790 -1 

2530 - 29 2800 - 

2540 - 40 2810 -244 

2550 -224 2820 -152 

2560 -199 2830 - 

2570 - 54 2B40 - 97 

2580 - 29 2850 

2590 - 91 2B6f -207 

2Í00 - 23 2870 - 

2610 -117 2BB0 -253 

2620 - 20 2890 - 

2630 - 2? 2900 -236 
2640 -141 
- 73 



23 



528 J=H»B*6*D+E*F 
530 IF J=0 OR J>=61 THEN 600 
548 PRESET(7,5):PRIHT»1, , E1 núiero es: 
"¡J 

558 POR N=8 TO 1888:NEXTN 

INTtl,:PR!NTtl,¡PRINTÍl,- ¿Quiñ- 
is volvir i jugar?" 

570 0»=I»KEV«:IF 0«="S" OR DWV THEN 
CLS:CLDSE;PUN 188 

¡88 IF 0«="n" OR 0«="N" THEN CLS:SCREE 
N8: COLOR 15,4,4¡END 
598 GOTO 578 

600 PR1NTI1," Lo siento.te has confund 
ido en":PRINTtl, " alguna tabla. ":F0R W 
-t TO 750:NE*TN:6OTO 548 
605 ' instruccienis 

¿10 CLS:C0LOP 15,1,1:KEY 0FF:SCREEN8:L 
OCATE "fi,2:PfiINT- INSTRUCCIONES. " 

628 LOCATE 8,3:PRINT 

638 L0CSTE5,6:PRINT"E5te ,uego trata d 
e que pienses":PRINT" un núiero entre 
el 1 y el 60,y va- " : PRINT" lias ind 
icando al ordenador si esta,":PPINT" 
o no, ti núiero en las tablas que el ": 
PRINT' te irá enseñando. «1 final, el 
orde- - 

640 PRINT" nador adivinará tú núiero. 



650 B*=1HKEY$: IF Aí=" 
660 SOTO 650 
670 RETURN 



690 PSETU30,165),15:DRAN"E110":PSET(1 
30,153;, 15:ORAN"E110':CIRCLE(130,159), 
5,15,,,2:CIRCLE¡240,49),5,15,,,2 
708 CIRCLEÜ48.140 ,5,15,4.28,3. 14, 2:C 
IRCLE(230,59), 5, 15,3.14,4.28,2 



' ¡jí,;í 



:pa1ntu35, 155) , 15:paint(235,54) , 15 
:» : :rcle -1:0, 6*. 15,,, 1 .^circle 

(120,1401,45,15,3.14,6.28,1/3 
730 LINE !75,140)-(75,49),15 
740 LINE (165, 1401-1165, 130), 15:LINE;i 
65,1171-1165, 49), 15 
750 CIRCLE (120,71), 45,15,3.14,4.28,1/ 
4.5¡PAINT(120,71),15 
760 CIRCLE(128,37), 45, 15,6.28,3. 14, 1/3 
:PAINT(128,71),15 

778 PPESET(180,lB0):PRINTtl, , «AG¡:-:F5 
ESET(101,180):PRINTI1, , NAGIC' 
780 PRESET ( 205 , 1 70 1 ¡ PR 1NT 1 1 , ■ S o 1 é " : DEF 
USR0=tH44:U=USR0l0) 
785 ' MUSICA DEL PR06RAIW 
790 PLAY"o4vl319<r64gr64ar44o518cl 7 o4r 
64bl 10r64gr6418al 18r34(r6418gl 10r34er: 
418(1 10r34dr64er64cr519<r64gr64ar44o51 
8d7o4r64bl 10r64gr641Bal 10r34fr6418gl 1 
fir;4eró418íU0r3«dr64er64cr5' 
800 PLAVo4v¡51Bdr6416dlBr44eró4f'44!6 
gl8r64tr64er50dr64dr64dr64dr64'.6dlBr64 
Cr64drl018dr4414dll0r6í5r.i4fr í 4;6gl8r6 
4trí4er50fr4415glBr25" 
810 PLAY"o4vl518dr64er64(;641 1 glSr44iii 
fl«r5»cr64dr!51l 



,416gl8r64f 
allBr64 



251Bdr64gr4< 



820 PLSVo4vl514ar35iaari415alI8r48arl 
0ar64ar64gr64grl018gr6416gr64:6ar6il6f 
18r44gr64er64gr64o516co4r6418br40!4ar: 
f::s-c-:;¿:iír40arl0ar64ar64gríSg'1018 
gr64gr6416gl8rS4ar64frb416gri4;:ar:í' 

i:: *jrc*,i%iiir™::i¡-'.i.-.¡:::-;iK 

10ar34ar:' 5 r54g- 

840 POS »=8 XWilffiíT 

850 CLOSEsREr-fK 



Test de listados . 



10 - jB 120 - 79 220 - 56 340 -129 451 -235 570 -185 675 - 58 7B5 - 58 

20 - 5B 125 - 58 230 -172 350 -224 460 -241 580 -101 680 - 24 790 -184 

40 - 58 !« _ 38 2 " 2 " : "" 58 ^ S,í " 2 " m '™ 

50 - 58 150 - 9B 260 -20Í 370 -237 490 -243 605 - 58 710 -196 B20 -132 

60 - 58 160 -131 270 - 96 380 -245 500 -120 410 -193 720 -147 830 -103 

70 - 58 170 -211 280 - 96 390 -247 510 - 15 42? -112 730 -116 840 -214 

75 - 5B 160 - 40 290 -191 400 -255 520 -142 630 - 86 740 -196 850 -124 

80 - 69 185 - 58 300 -218 410 -241 530 -129 640 -143 730 -193 

90 -255 190 -177 310 -131 420 -120 540 -234 650 - 37 760 - 18 

180 -237 200 -213 320 - 36 430 - 15 550 -205 440 - 35 770 -201 TOTAL: 

110 - 67 210 -206 330 -1B9 440 -2M 360 -107 670 -142 780 -243 12825 



CON GARANTIA 

/ WH/WjTT3ANSFg?SA 



POR SOLO 800 PTAS. 



Programa ■MgMg^^^^M^^ Por Enrique I. Grazmno, 



Completísimo programa de grá- 
ficos de gestión, con una agra- 
dable entrada de datos que | 
realizar desde el más se 



Jk gm, m h mite realizar desde el más senci- 

vr>l7 H # "° gráfico lineal a com P ie ¡os 

yP 1% # gráficos con porcentajes o datos 




730 SCREEN 2jCQL0R 3, 1, 1:CLS:0PEN 'gr| 
: "AS# 1 : PRESET (5, 2) ¡PRINTtl, 'Ditos'; DI 
748 LINE(0, 10)- (73, 165) ,13,B 

731 PRESET (5, 18») :PRINTtl, "ISPC]" 
768 PRESET(6,I8«):PRIMTtl,"[SPC]- 

11 UNE (100, 1921-1256, 1), 3, B 
780 LO=192/I0:FOR 1=1 TO 10:L!NEI95,LO 
«11-1256, L0tI),3:NEXT 
790 COLOR 15:F0R 1=1 TO 9; PRESET (70, LO 
II-4)iPMNT01,INT(llf-IItllll 
W PRESET (7 1 , LOI 1-4 > : PR I NT# 1 , 1 NT 1 1 00- 



)¡NEXT 



810 FOR 1=1 



fO D1:9=B+1: IF 0=14 THEN Q 



B30 PRESET(5,II9*4):C0L0R O+2:PRINT01. 
L«(II 

840 PRESET(6,I»9*4):C0L0R Í*2:PRINT#1, 
L*II) 
851 NEXT 
860 CLOSE 

870 1F STRI6(0)=-1 THEN SCREEN liCOLOt 
15:60T0 1300 ELSE 870 

... ' entrad» por teclado 

910 c""!""") MM " M,M,,H 

920 IF TE*1>DI THEN 970 ELSE FOR Y=TE* 



940 IF SICOt THEN PRINT: PRINT: 
oibrelienos de 10 letras) ";: INF 
):PRlNT:PRINT:PRINTiIF LEN(L»(Y))>9 TH 
EN 940 
950 

960 NEU 

970 FOR 1=1 TO DI 
980 A(I)'IHfI>/SUI1llll0 
990 NEXT 
1000 60TO 380 
lili 
1020 

1030 CLSiPMNTTABllSli'Hmu E/S' 
1040 PRINT 

1051 PRINT ¡ PR INTTflB (5 ) j ■ >A-C»rg»r dlid 

1060 PRINTí PRINTTflB (5) ; ■ >B-Entrac 
ide il teclado' 

1070 PRINT:PRINT:PRINT:PRINTTflB(10) ¡'S 
eltcciont opción" 
1080 Rt'lNKEYlilF Rl=" THEN 1080 
1090 IF RM'A* OR RCa" THEN 1150 



1100 IF R«='B' OR R«="b' 



e je; i' 



1170 R$="c 
1160 OPEN R» FOR INPUT ASI 
1190 INPUT 01, FL: INPUT tl,DI:S=DI*l: 
n A(S),B(S),L«(S1,H(S) 
1200 IF FL=1 THEN INPUTtl, X* 



!10 FOR rj 



!F EOF í 1 í 



TO DItl 



1 THEN I=DI*l:NEIT:CLO 



1240 I" FL=1 THEN INPUT II, H 
1250 NEXTiCLQSE 
1260 PRINT'Carga realizada": 
1000:NEXT:GOTO 1300 
1270 ' 

1280 'Henu principal 
1291 'I 

1300 CLS:PRINTTAB(3);"Henu de Salida! 
1310 PRINT:PRINT:PRINT:PRINTTA8(2)¡" 
-6raficos porcentuales de Tarta" 
1320 PRINT:PRINTTAB(2) ;->B-Eraf icos | 
rcentuales de tarras" 
1330 PRINT:PRINTTAB(2);'>C-Salvar en 

1J40 PRINTiPRINTTAB(2)!')D-Rliniciali 
ación' 

1330 IF FL=1 THEN PRINT: PRINT TAB'21; 
>E-6ralicas lineales absolutas' 
1360 IF FL=1 THEN PRINT : PRINT TABI2I] 
>F-Gralicas de barras absolutas' 
1370 RI=INKEYI:IF R«=" THEN 1370 
1380 IF R«='A' OR R«=V THEN 420 
1390 IF R«='B' OR R«='b' THEN 720 
1400 IF R»='C OR R»='c' THEN 1480 
1410 IF Rl«"D" OR Rl»'d' THEN PUN 
1420 IF (R«=V OR R«='E') AND FL=1 1 
EN 2340 

1430 IF (R»='f OR R»='F'l AND FL=1 1 

EN 2340 

1440 60T0 1370 

1430 ' 

1460 'Salida a cassette 



1330) PRINt'iIdIMF FL«1 THEN PR 



1540 FOR 1=1 TO DI 
1530 PRINTtl,AII):PRINT01,U 
IF FL=1 THEN PRINTtl , H 
1570 NEXT 



1600 ' 



1610 'Eral 

1620 'l*«Mt««4(*llll«llltlllHMIIHI 

1630 IF Mí)" THEN 1650 ELSE :L5:PRIN 
T T*B(5)¡"6rafics5 lineales" 
1640 PRINT:PRINT:PPIN T :FPIN:-.'l3«bre d 
e la Erafici'":LlMINPUTX»:IF LENIID) 
30 THEN PRWNoubre deiasiaao largo': 
GOTO 1640 

1650 SCREEN 2:OPEN'grp: "ASI 
1660 COLOR 3,1,1)0.8 
1670 PSETil0,130):fR!NTl!,<« 
1680 LINE(10,10)-(200,1101,3,B 
1690 FOR 1=0 TO 10 STEP 2:LINE(10, II 
01*101-1205, (11101*10), 3:NEXT 
1700 DU=190,'DI 
171? PSETI10, 1101,3 
1720 FO 



0:!F YU '10 



1730 VU=110-Í( 
THEN YU=!0 
174» LINE-¡l2*SU»TT.iU ,::tlK:í STEPI 

,-,::NEXT:LINE-l200,110),3 
1750 PSET(10,140):PRINT»l,"Na.:i«o 
1760 PSET'10,180I:COLOR 9:PRINTII,2» 
1770 PSET(U,I80!:PRINT»1,ZS 
1780 PSET!:i0,150l:COLCR 15: PRINTtl C 
SFC1" 

1790 pset(211,150)¡ppint01,'[spcj" 
1800 if strisi0)=-1 then close: screen 
Bicolor i,i5,i5:goto 1300 else 1300 



1830 'I 

1840 Z»=CHRI(401*CHR»(99)*CHR»(4¡)*[ 

1 ) +CHR* ( 1 1 4 ) +CHR» ( 97 > +CHR* 
(122)*CHR«tl03l*CHR»(97)*CHF;«<:!? -CHR 
1U)*CHR«(321 
i0 2«=2«*CHR«(83)*CHR4!U1!»CHR«Í102 
:HR1(116)*CHR$(46) 
i0 ON ERROR GOTO ¡B70:RETURI 
1870 IF ERR=19 THEN PRINT'Errc 

IT'Carga' ELSE PRI 

1880 IF ERR=19 AND ERL<1270 THEN CLOSE 
'" - =1 TO 1300:NEXT¡RESUNE 10 
1890 IF ERR=19 THEN CLOSE: FOR 1=1 TO 1 
500: NEXT: RESUME 1300 
1900 J=ERR:ERROR JiSTOP 
1910 CLS 

1920 PRINT'Los datos qu. ha introducid 



1930 PR 



':'¡K¡' lo cual.obviaie 



27 



2652 INPUT'tCual esMIftiGOTO 2630 

2660 MA=0:FOR 1 = 1 TO DI 

2670 IF KÍKHU) IHEN Hfl=H(I) 

2680 NEíT 

2690 60TO 2630 



2770 KEYON 
2780 CLEAF :i¡ 
27?? END 



Test de listados» 



- 5B 530 -170 79) -m 1050 - 



280 -215 
290 -204 
300 -114 



16T0 - 58 2090 -150 



550 - 24 S10 - 77 
560 - 18 820 -128 



830 - 52 1W« "224 1350 -213 1610 - 5B 1B7Í -136 2130 -2 



880 - 58 
890 - 58 I 
900 - 58 : 



940 -231 I2H - '0 u lt . 



1970 - 48 2230 



- 58 950 -188 1210 



2240 - 63 

2250 - 20 2510 - 58 

1220 -194 ¡m . 153 174P -230 -< m . 43 <]M s (tt ::y - 58 



"0 -180 2758 " ! ' c 
|0 . J7 2-60 -212 
;i0 - 58 2770 - 97 



720 - 3 9B0 - 76 1 



l 1230 -235 1W .2M 1750 -i 



490 -195 
500 - 15 

510 -2Í5 



1010 - 58 1270 - 58 ¿I - 



SUSCRIBETE 

Suscribiéndote no solo tienes l.i segundad de u ncí iodos los meses tu 
MSX CLUB Di: PROGRAMAS en u, casa sino que rcc.hirás 12 
números pagando sólo 10 



BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 



D. Postal Teléfono 

qufpago S aafi¡¡^ 

Tarifas: España por correo normal Ptas. 2 250,— 
Europa por correo normal Pías. 2.600,— 
Europa por correo aereo Ptas. ! 250.— 
América por correo aereo USAS 35USA$ 
Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB. NO SE ADMITE CONTRAREEMBOLSO. 
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YA ESTA EN TU QUIOSCO. Stop 


UNA REVISTA EXO 


EPCIONAL. Stop 




Diseñada para servir 



al usuario de un PC Stop 



EL COMO Y EL POR QUEDE 



UN STANDAR COMUN Stop 




OTRO PRODUCTO MANHA TTAN TRANSFER; S.A. Stop 



A la vanguardia de la prensa útil. Stop 





y 


E MAILING 


¡NOS APLICAMOS A SER UTILES! 

A TRAVES DE MSX CLUB DE MAIUNC PUEDES ADQUIRIR 
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MSX Software. 



«Por Joaquín López m 



MSXDOS, EL "DOS " 
DEL ESTANDAR (II) 



Han llegado a 
voces airadas criticando la falta 
de utilidad del MSXDOS. Es 
importante, pues, aclarar las po- 
sibilidades y el funcionamiento 
del "DOS" del estándar. 



EL PORQUE DEL MSXDOS 

Cuando un usuario si.- hace por 
primera vez con e! disco del 
MSXDOS v mira el directorio 
ve aparecer dos ficheros. 
MSX» IS SYSv ( i IMMWIX ( )\1 
l'ara los que han probado el CP M o el 
MS-DOS en oír., microordenador, la 
rniiHu impresión es que el MSXDOS 

llslta, pararen 

d.ides Asi. nombres como l'll'. M B 
MIT \1< )\'( PM. SVS(,|.;N. XSI'B. 
PUT, ED, etc.; deslumhran cuando 
aparecen en la pantalla. . 

Sin embargo, no ha\ que dejarse en 

M Dejemos' 1 de "ido 'al MS-DOS^e in- 
tentemos comparar el MSX DOS con d 
CP/M. 

El CP/M fue. durante bastantes 



le que tengan p 
Jel CP/M. 



MSXIX )S. compatible con el CP/M, 
ha sido, sin duda, un gran acierto de los 
lahncantes de \ISXs'. puesto que abre 
para el estándar la gran biblioteca de 



EL CP/M ANTE EL 
MSXDOS 

El MSXDOS no tiene nad 




, . los ficheros sólo pueden 
ios (con PIP) en ekisrao dis- 



con una sola unidad Además? es po^b 
ble "desconecta. " el emulador mante- 
niendo la tecla "CTRL" apretada du- 
rante el encendido, para ahorrar me- 

m por otra parte, emplear un fichero 
por lotes en el ( P \1 necesita del .1.1x1 
lio de dos utilidades, SUBM II ( ().\h 
XM'B En los MSX hasta teclea, la or- 
den "COPY CON NOMBRE.BAT" 
para abrir un fichero " BAT" de proce- 
so por lotes, en el que es factible usar e! 
símbolo "%", seguido por un entero 
comprendido entre 0 y 9, para hacer re- 



iriables 



, lugar 



jo de ficheros au 

loeiecu.ables l AUTOEXEC.BAT < 
Al rol XI. C.BAS) es imposible ene 
CP/M, a menos de que se parchee "¡. 
mano" el sistema operativo, modili 
cando el "boot program" de la pis' 

Retener la fecha y la hora de grab; 
ción de los ficheros tampoco es posible 
en el CP/M, mientras que cualquier 
usuario de MSX, particularmente de 
MSX2, saben de las comodidades que 



comando PIP.COM del CP M. Pues 
porque sus ventajas se notan funda- 
mentalmente a la hora de tratar con li- 
cheras protegidos o "de sistema", cosa 



ipos de ficheros. Las otras funcione! 
itiles de PIP son el poder controlar e 
ormato de los^ listados que salen pot 

' ASC ". Lo primero puede emularse en 
MSX con un pequeño programa 
timo con las opciones /A 
:omandoCOPY. 
Dunto negativo del CP/M e¡ 
ficheros se 
— -,je la orden 
SK-BASIC), al ce 
del MSXDOS. Hay que decir, empe 
que esto se ha modificado en la últii 
versión (la 3.0, conocida como "CP/M 



BASK 



32 



MC HL 
EX OE.HL 
CfiLL SETDMfl 



SBC HL, DE 
MU NZ.BLOKO 
JR NZ, ERROUT 



1330 CLOSE: LD C.I10 



1350 BLOtíO: LO C,I26 



LD DE, RELE 
LD (DE), A 
CALL SETDflA 



1570 RUNO: LD C.I27 

1580 LD HL, 1 

1590 PUSH DE 

1600 CALL BODE 

1610 POP DE 

1620 RET Z 

1630 JR ERROUT 

1610 SETOMfl: LD CHA 

1650 JR BDOS 

1660 PREFCB: LD HL f FCB 



INC HL 
LD (HL), 1 • 
0JN2 L2 
LD 6,37-12 



LD <HL),0 

«llSpenpcb 



LO (FCB+33) ,HL 

LD <FCB+35),HL 

INC HL 

LO (FC6*14),HL 



* Z ERROR 
:all IA2 



2000 ERROR: 
2010 

2020 OPENFCB: 



LD DE, FC6+9 
CALL PUTNOn 
POP HL 



: o directorio lleno' 
2270 OEFB O 

228OBFF0UN0Í OEFH 'El fichero no e> 
¡ste' 

2290 DEFB O 

2300 RELE: OEFB O 

2310 pila: OEFy o 

2320 LINNUh: OEFI/ O 
DEFS 37 



MSX-SimulacióriH 



■PorWillyMiragall. 



EL JUEGO 
DE LA VIDA 



Los ordenadores domésticos, incluidos 
los MSX, se asocian casi exclusivamente a 
juegos o programas de pequeña gestión. 
Sin embargo nuestros ordenadores pue- 
den acceder a aspectos de la informática 
que hace poco eran reservados a los 
MAINFRAMES; este es el caso de la si- 
mulación. 



:QUE ES LA SIMULACION? 

Los primeros ordenadores fueron 



dieron cuenta del 



Una de las aplicaciones pioneras 
dentro del mundo de la informática no- 
matemática fue la de la simulación. El 

cer que el ordenador responda a una 
simple pregunta. ¿Qué pasaría si...? 

' 3n, por ejemplo, permite 
io futuro de : ~ 
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jornadas 

cuál es la o las qui 

para esta iornada 

sultado cíe este tipo de 

mucho más inexacto que otras 
ciones, ya que el pronóstico de la qui- 
niela no sigue reglas definidas. 



EL JUEGO DE LA VIDA 

Las ideas matemáti< 
Bar más larde al juego 
ntecedentes en 1 
cabo porj.von l 

ción de una máquina capaz de repro- 
ducirse a sí misma. Evidentemente, 













































£ Célula viv. en Mtt generación 
^ Muerte en la próxima generación 
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¡Mil 






GENERfiCION 0 




GEMERfiCION 1 GENERACION 2 



MSX-Simulacióni 



171 DIN AI5«,58),B(5»,5Í1 

18» ' 

1M ' 1NICIAL1ZAR ESPACIO Al-.-) 

2í» ' Colócalos en si espacio 

21Í ' A la generación l. 

2tt ' 

23» ' CALCULAR NUEVA SENEPACION 

258 FOR (=1 TO 5» 

260 FOR Y=l TO 5» 

27» ON VECINOS SOTO 32«,34í,3¡ 

288 ' 

2?» * SI « O ÑAS DE 3 VECINOS 

m • 

31» B!U)=Í' MUERTO 
320 NEÍT ¥ 
33» NEIT i 
34» 

REPRESENTAR 6RAFICANENTE 

COPIAR ESPACIO B EN A 

399 FOR X=l TO 5» 
m FOR Y=l TO 5» 



VECNO 



ras vecinos 

63» NÜ.YMh'i.YI' SOBREVIVE 
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El juego de la vida ha fascinado du- 



dad real. Entre los más modernos der 
yados del juego de la vida están una s< 
rie de programas (desarrollados e 



tales cepas ! El ordenador l 

la su crecimiento. Todo ello a partir de 
algo aparentemente tan trivial como 
nuestro juego de la vida. 

En el juego de la vida existen todo 
tipo de sociedades. Existen sociedades 





^^^^^^^^^ 
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¡SIN BOMBOS NI PLATILLOS! 



La editorial Manhattan Transfer, S.A. 
Se gana a pulso la confianza del lector. 
Cada una de sus publicaciones tienen el 
objetivo específico de servir al lector/usuario. 



man: 
tran 




No se limita a 
llenar págii 
las llena de 
A la vang 

CP COMPACT - PCompatible - MSX Extra - MSX Club de Programas 



Esta Primavera 
Sony da mucho juego 



LAS VEGAS. 

Juego de de- 
tectives Debe- 



LODE I SPACE KIT. 

RUNNER II. P ,:, :: . 

Excitante juego espacio como 

de aventuras y tú siempre lo 

prueba de ha- has imaginada 



NUEVOS PROGRAMAS MSX2 




¡No te los pierdas! 



HKT3IT 



